Define a cursor defface; minor face optimizations.
authorChong Yidong <cyd@stupidchicken.com>
Thu, 14 Oct 2010 03:55:18 +0000 (23:55 -0400)
committerChong Yidong <cyd@stupidchicken.com>
Thu, 14 Oct 2010 03:55:18 +0000 (23:55 -0400)
commitc13eeae9d536f9ef300d53339f58854e4f0bc6c3
treecf9167bbc4c4103345fc0b83045fdd1f6e251dce
parentbea2e4e5764ef80139fb5ad921eee11a105cd95c
Define a cursor defface; minor face optimizations.

* faces.el (face-spec-reset-face): Reset all attributes in one
single call to set-face-attribute.
(face-spec-match-p): Make it a defsubst.
(frame-set-background-mode): New arg KEEP-FACE-SPECS.
(x-create-frame-with-faces, tty-create-frame-with-faces)
(tty-set-up-initial-frame-faces): Don't recompute face specs in
frame-set-background-mode, since they are recomputed immediately
afterwards in face-set-after-frame-default.
(face-set-after-frame-default): Minor optimization.
(cursor): Provide non-trivial defface spec.

* custom.el (custom-theme-recalc-face): Simplify.
lisp/ChangeLog
lisp/custom.el
lisp/faces.el